VERSION 5.00
Begin VB.UserControl TouchLocationList 
   BackColor       =   &H00FFFFFF&
   ClientHeight    =   8475
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   8955
   ScaleHeight     =   8475
   ScaleWidth      =   8955
   Begin VCT.TouchScreenListBox TA_List 
      Height          =   6855
      Left            =   2520
      TabIndex        =   2
      Top             =   240
      Width           =   6135
      _ExtentX        =   10821
      _ExtentY        =   12091
   End
   Begin VCT.TouchScreenListBox District_List 
      Height          =   7575
      Left            =   1200
      TabIndex        =   1
      Top             =   480
      Width           =   4335
      _ExtentX        =   7646
      _ExtentY        =   13361
   End
   Begin VCT.TouchScreenListBox Region_List 
      Height          =   3855
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   4335
      _ExtentX        =   7646
      _ExtentY        =   6800
   End
End
Attribute VB_Name = "TouchLocationList"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False

Dim LocationString As String
Dim ShowCityLocationsBoolean As Boolean
Dim ShowSameOptionBoolean As Boolean

Public Event LocationSet()
Public Event click()

Private Sub District_List_Click()
   TA_List.Visible = True
   District_List.Enabled = False
   
   Select Case District_List.Text
      Case "Balaka"
         TA_List.AddItem "Amidu"
         TA_List.AddItem "Kachenga"
         TA_List.AddItem "Kalembo"
         TA_List.AddItem "Msamala"
         TA_List.AddItem "Nkaya"
         TA_List.AddItem "Sawali"
         TA_List.AddItem "Unknown"
      Case "Blantyre"
         TA_List.AddItem "Chigaru"
         TA_List.AddItem "Kapeni"
         TA_List.AddItem "Kuntaja"
         TA_List.AddItem "Kunthembwe"
         TA_List.AddItem "Lundu"
         TA_List.AddItem "Machinjiri"
         TA_List.AddItem "Makata"
         TA_List.AddItem "Somba"
         TA_List.AddItem "Unknown"
      Case "Chitipa"
         TA_List.AddItem "Kameme"
         TA_List.AddItem "Mwaulambya"
         TA_List.AddItem "Mwenemisuku"
         TA_List.AddItem "Mwenewenya"
         TA_List.AddItem "Nthalire"
         TA_List.AddItem "Unknown"
      Case "Chikwawa"
         TA_List.AddItem "Chapananga"
         TA_List.AddItem "Kasisi"
         TA_List.AddItem "Katunga"
         TA_List.AddItem "Lundu"
         TA_List.AddItem "Makhuwira"
         TA_List.AddItem "Maseya"
         TA_List.AddItem "Mgabu"
         TA_List.AddItem "Mlilima"
         TA_List.AddItem "Unknown"
      Case "Chiradzulu"
         TA_List.AddItem "Chitera"
         TA_List.AddItem "Kadewere"
         TA_List.AddItem "Likoswe"
         TA_List.AddItem "Maoni"
         TA_List.AddItem "Mpama"
         TA_List.AddItem "Mpunga"
         TA_List.AddItem "Nkalo"
         TA_List.AddItem "Ntchema"
         TA_List.AddItem "Unknown"
      Case "Dedza"
         TA_List.AddItem "Chauma"
         TA_List.AddItem "Chilikumwendo"
         TA_List.AddItem "Kachere"
         TA_List.AddItem "Kachindamoto"
         TA_List.AddItem "Kamenyagwaza"
         TA_List.AddItem "Kaphuka"
         TA_List.AddItem "Kasumbu"
         TA_List.AddItem "Pemba"
         TA_List.AddItem "Tambala"
         TA_List.AddItem "Unknown"
      Case "Dowa"
         TA_List.AddItem "Chakhaza"
         TA_List.AddItem "Chiwere"
         TA_List.AddItem "Dzoole"
         TA_List.AddItem "Kayembe"
         TA_List.AddItem "Mponela"
         TA_List.AddItem "Msakambewa"
         TA_List.AddItem "Nkukula"
         TA_List.AddItem "Unknown"
      Case "Kasungu"
         TA_List.AddItem "Chilowamatambe"
         TA_List.AddItem "Chisemphere"
         TA_List.AddItem "Chisikwa"
         TA_List.AddItem "Chulu"
         TA_List.AddItem "Kaluluma"
         TA_List.AddItem "Kaomba"
         TA_List.AddItem "Kapelula"
         TA_List.AddItem "Kawamba"
         TA_List.AddItem "Lukwa"
         TA_List.AddItem "Mnyanja"
         TA_List.AddItem "Mwase"
         TA_List.AddItem "Njombwa"
         TA_List.AddItem "Nthunduwala"
         TA_List.AddItem "Santhe"
         TA_List.AddItem "Simulemba"
         TA_List.AddItem "Wimbe"
         TA_List.AddItem "Unknown"
      Case "Karonga"
         TA_List.AddItem "Kilupula"
         TA_List.AddItem "Kyungu"
         TA_List.AddItem "Mwakaboko"
         TA_List.AddItem "Mwarangombe"
         TA_List.AddItem "Wasambo"
         TA_List.AddItem "Unknown"
      Case "Likoma"
         TA_List.AddItem "Mkumpha"
      Case "Lilongwe"
         TA_List.AddItem "Chadza"
         TA_List.AddItem "Chimutu"
         TA_List.AddItem "Chiseka"
         TA_List.AddItem "Chitekwele"
         TA_List.AddItem "Chitukula"
         TA_List.AddItem "Kabudula"
         TA_List.AddItem "Kalolo"
         TA_List.AddItem "Kalumba"
         TA_List.AddItem "Kalumbu"
         TA_List.AddItem "Khongoni"
         TA_List.AddItem "Malili"
         TA_List.AddItem "Masula"
         TA_List.AddItem "Masumbankhunda"
         TA_List.AddItem "Mazengera"
         TA_List.AddItem "Njewa"
         TA_List.AddItem "Ntema"
         TA_List.AddItem "Tsabango"
         TA_List.AddItem "Unknown"
      Case "Lilongwe City"
         TA_List.AddItem "Area 2"
         TA_List.AddItem "Area 3"
         TA_List.AddItem "Area 9"
         TA_List.AddItem "Area 10"
         TA_List.AddItem "Area 11"
         TA_List.AddItem "Area 12"
         TA_List.AddItem "Area 14"
         TA_List.AddItem "Area 15"
         TA_List.AddItem "Area 18 A"
         TA_List.AddItem "Area 18 B"
         TA_List.AddItem "Area 22"
         TA_List.AddItem "Area 22B"
         TA_List.AddItem "Area 22 (SOS)"
         TA_List.AddItem "Area 23"
         TA_List.AddItem "Area 24"
         TA_List.AddItem "Area 25 A"
         TA_List.AddItem "Area 25 B"
         TA_List.AddItem "Area 25 C"
         TA_List.AddItem "Area 30"
         TA_List.AddItem "Area 33"
         TA_List.AddItem "Area 35"
         TA_List.AddItem "Area 36"
         TA_List.AddItem "Area 43"
         TA_List.AddItem "Area 44"
         TA_List.AddItem "Area 47"
         TA_List.AddItem "Area 49"
         TA_List.AddItem "Biwi (A8)"
         TA_List.AddItem "Bwaila"
         TA_List.AddItem "CCDC"
         TA_List.AddItem "Chingwirizano"
         TA_List.AddItem "Chilinde I (A21)"
         TA_List.AddItem "Chilinde II (A21)"
         TA_List.AddItem "Chimoka"
         TA_List.AddItem "Chinsapo I (A46)"
         TA_List.AddItem "Chinsapo II (A46)"
         TA_List.AddItem "Chipasula"
         TA_List.AddItem "Chitedze"
         TA_List.AddItem "Chiuzira"
         TA_List.AddItem "Falls"
         TA_List.AddItem "Gulliver (A49)"
         TA_List.AddItem "Kaliyeka I"
         TA_List.AddItem "Kaliyeka II"
         TA_List.AddItem "Kamuzu Barracks"
         TA_List.AddItem "Kanengo"
         TA_List.AddItem "Kaondo"
         TA_List.AddItem "Kaphiri"
         TA_List.AddItem "Kauma"
         TA_List.AddItem "Kawale I (A4)"
         TA_List.AddItem "Kawale II (A4)"
         TA_List.AddItem "Likuni"
         TA_List.AddItem "Lingadzi"
         TA_List.AddItem "Lumbadzi"
         TA_List.AddItem "Malangalanga Admarc"
         TA_List.AddItem "Maula Prison"
         TA_List.AddItem "Mchesi (A8)"
         TA_List.AddItem "Mchezi"
         TA_List.AddItem "Mgona"
         TA_List.AddItem "Mtandire"
         TA_List.AddItem "Mtsiliza"
         TA_List.AddItem "Mwenyekondo"
         TA_List.AddItem "Ngwenya"
         TA_List.AddItem "Piasani"
         TA_List.AddItem "Police Mobile Force"
         TA_List.AddItem "Phwetekere"
         TA_List.AddItem "Santi"
         TA_List.AddItem "Shire (A49)"
         TA_List.AddItem "SOS Village"
         TA_List.AddItem "State House"
      Case "Machinga"
         TA_List.AddItem "Chamba"
         TA_List.AddItem "Chikweo"
         TA_List.AddItem "Chiwalo"
         TA_List.AddItem "Kapoloma"
         TA_List.AddItem "Kawinga"
         TA_List.AddItem "Liwonde"
         TA_List.AddItem "Mlomba"
         TA_List.AddItem "Mposa"
         TA_List.AddItem "Ngokwe"
         TA_List.AddItem "Nkoola"
         TA_List.AddItem "Nsanama"
         TA_List.AddItem "Nyambi"
         TA_List.AddItem "Sitola"
         TA_List.AddItem "Unknown"
      Case "Mangochi"
         TA_List.AddItem "Chimwala"
         TA_List.AddItem "Chowe"
         TA_List.AddItem "Jalasi"
         TA_List.AddItem "Katema"
         TA_List.AddItem "Katuli"
         TA_List.AddItem "Mmbwananyambi"
         TA_List.AddItem "Makanjira"
         TA_List.AddItem "Mponda"
         TA_List.AddItem "Namabvi"
         TA_List.AddItem "Nankumba"
         TA_List.AddItem "Unknown"
      Case "Mulanje"
         TA_List.AddItem "Chikumbu"
         TA_List.AddItem "Juma"
         TA_List.AddItem "Laston Njema"
         TA_List.AddItem "Mabuka"
         TA_List.AddItem "Mkanda"
         TA_List.AddItem "Mthiramanja"
         TA_List.AddItem "Nkhumba"
         TA_List.AddItem "Unknown"
      Case "Mzimba"
         TA_List.AddItem "Chindi"
         TA_List.AddItem "Jaravikuwa"
         TA_List.AddItem "Kampingo Sibande"
         TA_List.AddItem "Khosolo Jere"
         TA_List.AddItem "Mabulabo"
         TA_List.AddItem "Mbelwa IV"
         TA_List.AddItem "Mpherembe"
         TA_List.AddItem "Mtwalo"
         TA_List.AddItem "Mzikubola"
         TA_List.AddItem "Mzuzu-zuku"
         TA_List.AddItem "Unknown"
      Case "Mwanza"
         TA_List.AddItem "Dambe"
         TA_List.AddItem "Kanduku"
         TA_List.AddItem "Mlauli"
         TA_List.AddItem "Ngozi"
         TA_List.AddItem "Nthache"
         TA_List.AddItem "Symon"
         TA_List.AddItem "Unknown"
      Case "Mchinji"
         TA_List.AddItem "Dambe"
         TA_List.AddItem "Kaponda"
         TA_List.AddItem "Mavwere"
         TA_List.AddItem "Mduwa"
         TA_List.AddItem "Mkanda"
         TA_List.AddItem "Mlonyeni"
         TA_List.AddItem "Simphasi"
         TA_List.AddItem "Zulu"
         TA_List.AddItem "Unknown"
      Case "Nkhata-Bay"
         TA_List.AddItem "Boghoyo"
         TA_List.AddItem "Fukamalaza"
         TA_List.AddItem "Fukamapiri"
         TA_List.AddItem "Kabunduli"
         TA_List.AddItem "Malanda"
         TA_List.AddItem "Malenga Mzoma"
         TA_List.AddItem "Mankhambira"
         TA_List.AddItem "Mkondowe"
         TA_List.AddItem "Mkumbira"
         TA_List.AddItem "Msiska"
         TA_List.AddItem "Nyaluwanga"
         TA_List.AddItem "Timbiri"
         TA_List.AddItem "Zilakoma"
         TA_List.AddItem "Unknown"
      Case "Nkhota-kota"
         TA_List.AddItem "Kafuzira"
         TA_List.AddItem "Kanyenda"
         TA_List.AddItem "Malengachanzi"
         TA_List.AddItem "Mphonde"
         TA_List.AddItem "Mwadzama"
         TA_List.AddItem "Mwansambo"
         TA_List.AddItem "Unknown"
      Case "Ntchisi"
         TA_List.AddItem "Chikho"
         TA_List.AddItem "Chilooko"
         TA_List.AddItem "Kalumo"
         TA_List.AddItem "Kasakula"
         TA_List.AddItem "Malenga"
         TA_List.AddItem "Nthondo"
         TA_List.AddItem "Unknown"
      Case "Nsanje"
         TA_List.AddItem "Chimombo"
         TA_List.AddItem "Makoko"
         TA_List.AddItem "Malemia"
         TA_List.AddItem "Mbenje"
         TA_List.AddItem "Mlolo"
         TA_List.AddItem "Ndamera"
         TA_List.AddItem "Ngabu"
         TA_List.AddItem "Nyachikadza"
         TA_List.AddItem "Tengani"
         TA_List.AddItem "Unknown"
      Case "Ntcheu"
         TA_List.AddItem "Chakhumbira"
         TA_List.AddItem "Champiti"
         TA_List.AddItem "Ganya"
         TA_List.AddItem "Gomani"
         TA_List.AddItem "Kwataine"
         TA_List.AddItem "Makwangwala"
         TA_List.AddItem "Masasa"
         TA_List.AddItem "Mpando"
         TA_List.AddItem "Njolomole"
         TA_List.AddItem "Phambala"
         TA_List.AddItem "Tsikulamowa"
         TA_List.AddItem "Unknown"
      Case "Phalombe"
         TA_List.AddItem "Chiwalo"
         TA_List.AddItem "Jenala"
         TA_List.AddItem "Kaduya"
         TA_List.AddItem "Mkhumba"
         TA_List.AddItem "Nazombe"
         TA_List.AddItem "Unknown"
      Case "Rumphi"
         TA_List.AddItem "Chapinduka"
         TA_List.AddItem "Chikulamayembe"
         TA_List.AddItem "Katumbi"
         TA_List.AddItem "Kachulu"
         TA_List.AddItem "Mwahenga"
         TA_List.AddItem "Mwalweni"
         TA_List.AddItem "Mwamlowe"
         TA_List.AddItem "Mwankunikira"
         TA_List.AddItem "Zolokere"
         TA_List.AddItem "Unknown"
      Case "Salima"
         TA_List.AddItem "Kalonga"
         TA_List.AddItem "Kambalame"
         TA_List.AddItem "Kambwiri"
         TA_List.AddItem "Khombedza"
         TA_List.AddItem "Kuluunda"
         TA_List.AddItem "Maganga"
         TA_List.AddItem "Msosa"
         TA_List.AddItem "Mwanza"
         TA_List.AddItem "Ndindi"
         TA_List.AddItem "Pemba"
         TA_List.AddItem "Unknown"
      Case "Thyolo"
         TA_List.AddItem "Bvumbwe"
         TA_List.AddItem "Changata"
         TA_List.AddItem "Chimaliro"
         TA_List.AddItem "Kapichi"
         TA_List.AddItem "Khwetemule"
         TA_List.AddItem "Mbawela"
         TA_List.AddItem "Mphuka"
         TA_List.AddItem "Nchilamwera"
         TA_List.AddItem "Nsabwe"
         TA_List.AddItem "Thomasi"
         TA_List.AddItem "Thukuta"
         TA_List.AddItem "Unknown"
      Case "Zomba"
         TA_List.AddItem "Chikowi"
         TA_List.AddItem "Kumtumanji"
         TA_List.AddItem "Malemia"
         TA_List.AddItem "Mbiza"
         TA_List.AddItem "Mkumbila"
         TA_List.AddItem "Mlumbe"
         TA_List.AddItem "Mwambo"
         TA_List.AddItem "Unknown"
      Case "Unknown"
         LocationString = Region_List.Text + " / Unknown"
         RaiseEvent LocationSet
   End Select
   'TA_List.UpdateVisList

End Sub

Private Sub Region_List_Click()
   Region_List.Enabled = False
   If Region_List.Text = "Northern" Then
      District_List.AddItem "Chitipa"
      District_List.AddItem "Karonga"
      District_List.AddItem "Likoma"
      District_List.AddItem "Mzimba"
      District_List.AddItem "Nkhata-Bay"
      District_List.AddItem "Rumphi"
      District_List.AddItem "Unknown"
      District_List.Visible = True
   Else
      If Region_List.Text = "Central" Then
         District_List.AddItem "Dedza"
         District_List.AddItem "Dowa"
         District_List.AddItem "Kasungu"
         District_List.AddItem "Lilongwe"
         If ShowCityLocationsBoolean = True Then
            District_List.AddItem "Lilongwe City"
         End If
         District_List.AddItem "Mchinji"
         District_List.AddItem "Nkhota-kota"
         District_List.AddItem "Ntchisi"
         District_List.AddItem "Ntcheu"
         District_List.AddItem "Salima"
         District_List.AddItem "Unknown"
         District_List.Visible = True
      Else
         If Region_List.Text = "Southern" Then
            District_List.AddItem "Blantyre"
            District_List.AddItem "Balaka"
            District_List.AddItem "Chikwawa"
            District_List.AddItem "Chiradzulu"
            District_List.AddItem "Machinga"
            District_List.AddItem "Mangochi"
            District_List.AddItem "Mulanje"
            District_List.AddItem "Mwanza"
            District_List.AddItem "Nsanje"
            District_List.AddItem "Phalombe"
            District_List.AddItem "Thyolo"
            District_List.AddItem "Zomba"
            District_List.AddItem "Unknown"
            District_List.Visible = True
         Else
            LocationString = Region_List.Text
            RaiseEvent LocationSet
         End If
      End If
   End If
   RaiseEvent click
End Sub

Private Sub TA_List_Click()
   TA_List.Enabled = False
   LocationString = District_List.Text + " / " + TA_List.Text
   RaiseEvent LocationSet
End Sub

Private Sub UserControl_Initialize()
   ShowCityLocationsBoolean = False
   ShowSameOptionBoolean = False
   Reset_Location_List
End Sub

Public Sub Reset_Location_List()
   TA_List.Visible = False
   District_List.Visible = False
   Region_List.Enabled = True
   Region_List.ClearList
   District_List.DeleteList
   District_List.Enabled = True
   'District_List.UpdateVisList
   TA_List.DeleteList
   TA_List.Enabled = True
   'TA_List.UpdateVisList
   Region_List.DeleteList
   Region_List.AddItem "Northern"
   Region_List.AddItem "Central"
   Region_List.AddItem "Southern"
   Region_List.AddItem "Unknown"
   If ShowSameOptionBoolean = True Then
      Region_List.AddItem "Same"
   End If

End Sub

Property Get Location() As String
   Location = LocationString
End Property

Property Let ShowCityLocations(ByVal Status As Boolean)
   ShowCityLocationsBoolean = Status
End Property

Property Let ShowSameOption(ByVal Status As Boolean)
   ShowSameOptionBoolean = Status
End Property

